home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / dev / amos / TUGX.lha / TUGX.AMOS / TUGX.amosSourceCode
AMOS Source Code  |  1998-12-22  |  860b  |  28 lines
  1. Screen Open 0,640,512,16,Hires+Laced : Cls 0
  2. Hide : Flash Off : Curs Off : Volume 30 : Ink 0
  3. Volume 15
  4. For X=0 To 16 : For Y=0 To 16
  5.  Plot X,Y,0 : Next Y : Next X
  6. Repeat 
  7.  S=Rnd(80)+1
  8.   Ink Rnd(14)+1
  9.     Play 1,S+1,1
  10.    Polyline Rnd(640),Rnd(512) To Rnd(640),Rnd(512)
  11.  For W=1 To 1000
  12.    If Key State(69) or Key State(16) or Mouse Click Then Goto _X_IT
  13.  Next W
  14. Until Inkey$<>""
  15. _X_IT:
  16. Play 1,S,1
  17. Cls 0 : Colour 0,$234 : Colour 1,$789 : Colour 2,$234
  18. For P=S To 1 Step -1
  19.    Play 1,P,1
  20. Next 
  21. Volume 0
  22. Locate 20,22 : Centre "T.U.G.X. - The Ultimate Graphic Experience"
  23. Locate 20,24 : Centre "brought to YOU by FLUX ENTERTAINMENT"
  24. Locate 20,25 : Centre "in the year 1998 - (c) by D.Lenz"
  25. Locate 20,27 : Centre "dont forget to check : http://members.xoom.com/dl80 !"
  26. Locate 20,29 : Centre "THIS IS VERSION 1.0 WITH OPTIMIZED SOURCE"
  27. Wait Key : Fade 2 : Wait 15
  28. End